home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 05 / 4 / DISK0543.ZIP / LOTTO.BAS < prev    next >
BASIC Source File  |  1985-06-22  |  3KB  |  103 lines
  1. 10   CLS
  2. 20   KEY OFF
  3. 30      REM  THIS PROGRAM WAS DOWNLOADED FROM THE PROVIDER BBS
  4. 40      REM  WRITTEN ORGINALLY BY ED SEEDHOUSE - THIS ADAPTATION
  5. 50      REM  WAS DONE FOR THE IBM MS/DOS TYPE COMPUTERS BY
  6. 60      REM  CHRIS SPRATT, VICTORIA, BC.
  7. 70      REM  THANKS TO ED SEEDHOUSE AND THE PROVIDER SYSOP
  8. 80      REM
  9. 90      REM
  10. 100   PRINT : PRINT
  11. 110   PRINT TAB(25) " A SPECIAL LOTTO 649 PROGRAM"
  12. 120   LOCATE 8,16:FOR L = 1 TO 50:PRINT CHR$(205);:NEXT
  13. 130   LOCATE 9,20:COLOR 15
  14. 140   PRINT "--------  THE WINNING 649 NUMBERS  --------"
  15. 150   LOCATE 10,16:COLOR 7
  16. 160   FOR L = 1 TO 50 :PRINT CHR$(205);:NEXT
  17. 170   PRINT : PRINT :
  18. 180   PRINT TAB(31) " BY CHRIS SPRATT"
  19. 190   PRINT
  20. 200   PRINT TAB(35) "JUNE 1985"
  21. 201   PRINT :PRINT
  22. 202   PRINT TAB(28) "WITH THANKS TO ED SEEDHOUSE "
  23. 210   PRINT
  24. 220   PRINT : PRINT : GOSUB 12000
  25. 230     REM
  26. 240     REM
  27. 250     REM
  28. 260     REM
  29. 1000  DIM A(7)
  30. 1010  DEFSNG X
  31. 1020  DEFINT A-W
  32. 1030 CLS
  33. 1040 GOSUB 1250
  34. 1050 GOSUB 1300
  35. 1060 GOSUB 1390
  36. 1070 GOSUB 1430
  37. 1080 GOSUB 1250:PRINT
  38. 1090 PRINT "          ";
  39. 1100 FOR I = 1 TO 6
  40. 1110 NEXT
  41. 1120 PRINT
  42. 1130 GOSUB 1510
  43. 1140 GOTO 1060
  44. 1150 FOR I = 1 TO 6
  45. 1160 PRINT A(I);
  46. 1170 NEXT
  47. 1180  CLS: PRINT :PRINT :PRINT:PRINT :PRINT
  48. 1190  PRINT TAB(22) "THE WINNING(?) NUMBERS ARE":
  49. 1200  PRINT :PRINT
  50. 1210  PRINT TAB(9) A(1);SPC(5)A(2);SPC(5)A(3);SPC(5)A(4);SPC(5)A(5);SPC(5)A(6)
  51. 1220  PRINT :PRINT :PRINT
  52. 1230  PRINT TAB(30)"GOOD LUCK!!!"
  53. 1240 END
  54. 1250 LOCATE 5,16
  55. 1260  PRINT"               LOTTO 649"
  56. 1270 LOCATE 6,16
  57. 1280  PRINT"            NUMBER GENERATOR"
  58. 1290 RETURN
  59. 1300 LOCATE 10,16
  60. 1310 PRINT"          HIT <ENTER> TO START."
  61. 1320 Q$=INKEY$
  62. 1330 X=RND(1)
  63. 1340 IF Q$=CHR$(13) THEN 1370
  64. 1350 IF Q$=CHR$(27) THEN 1240
  65. 1360 GOTO 1320
  66. 1370 CLS
  67. 1380 RETURN
  68. 1390 FOR I = 1 TO 6
  69. 1400  A(I)=INT(RND(1)*49)+1
  70. 1410  GOSUB 1610
  71. 1420 NEXT
  72. 1430 FLAG = 0
  73. 1440  N = 5
  74. 1450 FOR I = 1 TO N
  75. 1460  IF A(I+1)<A(I) THEN FLAG = 1:GOSUB 1660
  76. 1470 NEXT I
  77. 1480  IF FLAG = 0 THEN 1500
  78. 1490  N=N-1:FLAG = 0: GOTO 1450
  79. 1500 RETURN
  80. 1510 IF INKEY$<>"" THEN 1510
  81. 1520 LOCATE 10,17
  82. 1530 PRINT"<ENTER> FOR MORE.          <ESC> TO END."
  83. 1540 Q$=INKEY$
  84. 1550 X=RND(1)
  85. 1560 IF Q$=CHR$(27)THEN 1180
  86. 1570 IF Q$=CHR$(13)THEN 1590
  87. 1580 GOTO 1540
  88. 1590 CLS
  89. 1600 RETURN
  90. 1610 IF I = 1 THEN 1650
  91. 1620  FOR J = 1 TO I-1
  92. 1630   IF A(I)=A(J) THEN A(I)= INT (RND(1)*49)+1:GOTO 1620
  93. 1640  NEXT J
  94. 1650 RETURN
  95. 1660 A(7)=A(I):A(I)=A(I+1):A(I+1)=A(7)
  96. 1670 RETURN
  97. 11000 END
  98. 12000 LOCATE 24,29
  99. 13000 PRINT "PRESS ANY KEY TO CONTINUE"
  100. 14000 B$ = INPUT$ (1)
  101. 15000 CLS : PRINT : PRINT : PRINT : PRINT
  102. 16000 RETURN
  103.